From 77a86e92d609badbacfe75c6d2a9e3ab397a6ac7 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 8 Jun 2002 18:27:16 +0000 Subject: [PATCH] (find-file-noselect-1): Undo previous change. --- lisp/files.el | 25 ++++++++++++++----------- 1 file changed, 14 insertions(+), 11 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index f6f787cff4d..34fdefd6da6 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -1286,15 +1286,14 @@ that are visiting the various files." (progn (make-local-variable 'backup-inhibited) (setq backup-inhibited t))) - (let ((buffer (current-buffer))) - (if rawfile - (progn - (set-buffer-multibyte nil) - (setq buffer-file-coding-system 'no-conversion) - (make-local-variable 'find-file-literally) - (setq find-file-literally t)) - (after-find-file error (not nowarn))) - buffer)))) + (if rawfile + (progn + (set-buffer-multibyte nil) + (setq buffer-file-coding-system 'no-conversion) + (make-local-variable 'find-file-literally) + (setq find-file-literally t)) + (after-find-file error (not nowarn))) + (current-buffer)))) (defun insert-file-contents-literally (filename &optional visit beg end replace) "Like `insert-file-contents', but only reads in the file literally. @@ -3223,8 +3222,12 @@ non-nil, it is called instead of rereading visited file contents." (if auto-save-p 'emacs-mule-unix coding-system-for-read))) ;; Note that this preserves point in an intelligent way. - (insert-file-contents file-name (not auto-save-p) - nil nil t)))) + (if preserve-modes + (let ((buffer-file-formats buffer-file-formats)) + (insert-file-contents file-name (not auto-save-p) + nil nil t)) + (insert-file-contents file-name (not auto-save-p) + nil nil t))))) ;; Recompute the truename in case changes in symlinks ;; have changed the truename. (setq buffer-file-truename -- 2.30.2